home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / lstcl10.zip / LASTCALL.WCX (.txt) < prev   
Wildcat! WCX  |  1995-03-12  |  2KB  |  113 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  1734 bytes  01/29/123  04:29:46pm
  3. '! Code Segment Size  :1062 bytes
  4. '! Data Segment Size  :4762 bytes
  5. '! String Segment Size:672 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type26
  9.         b0 As Byte
  10.         s1(0 To 29) As String*1
  11.         b31 As Byte
  12.         s32(0 To 39) As String*1
  13.         w72 As Word
  14.         w74 As Word
  15.         w76 As Word
  16.         w78 As Word
  17.         l80 As Long
  18.       End Type
  19.  
  20.       Dim t26_4463 As Type26
  21.       Dim s4687 As String*25
  22.       Dim s4712 As String*30
  23.       Dim s4742 As String
  24.       Dim s4746 As String
  25.       Dim i4750 As Integer
  26.       Dim dt4752 As DateTime
  27.       Dim l4758 As Long
  28.  
  29.       s4687 = User.Name
  30.       s4712 = User.From
  31.       CurrentDateTime dt4752
  32.       l4758 = (dt4752.D.Number - 25567) * 86400 + dt4752.T.Number
  33.       Cls 
  34.       Open ProgPath + "LASTCALL.CFG" For Input As 1
  35.       Input #1, s4742
  36.       Input #1, s4746
  37.       s4742 = UCase(s4742)
  38.       If s4742 = "INTERMAIL" Then
  39.         Open s4746 + "\LASTCALL.IM" For Random As 2 Len = 224 '! This value should probably be replaced with a "SizeOf" expression
  40.         Get 2, 1, t26_4463 '! 224 bytes
  41.       Else
  42.   225   If s4742 = "FD" Then
  43.           Open s4746 + "\LASTCALL.FD" For Random As 2 Len = 224 '! This value should probably be replaced with a "SizeOf" expression
  44.           Get 2, 1, t26_4463 '! 224 bytes
  45.         Else
  46.   286     Locate 10, 3
  47.           Print "@0F@Invalid Mailer Type must be '@0C@INTERMAIL@0F@' or '@0C@FD@0F@' on first line of CFG file.";
  48.           Delay 4
  49.           End 
  50.         End If
  51.       End If
  52.   311 Locate 5, 32
  53.       Print "@0B@LastCaller 1.0"
  54.       Locate 7, 22
  55.       Print "@0E@By: K. Kimball  -  The CAD/fx BBS!"
  56.       Locate 8, 32
  57.       Print "@0F@(602) 835-0274"
  58.       Locate 10, 1
  59.       Print "                       @0F@Processing Caller Information!"
  60.       Print "          @1F@                                                        @07@"
  61.       Print "          @1F@ 0% ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ 100%   @07@"
  62.       Print "          @1F@                                                        @07@"
  63.       i4750 = 15
  64.       Do
  65.   409   Locate 12, i4750
  66.         Print "@NOPAUSE@@1A@█";
  67.         Locate 12, 65
  68.         Print "@NOPAUSE@@1F@|"
  69.         Delay 0.01
  70.         i4750 = i4750 + 1
  71.         Locate 12, i4750
  72.         Print "@NOPAUSE@@1A@█";
  73.         Locate 12, 65
  74.         Print "@NOPAUSE@@1F@/"
  75.         Delay 0.01
  76.         i4750 = i4750 + 1
  77.         Locate 12, i4750
  78.         Print "@NOPAUSE@@1A@█";
  79.         Locate 12, 65
  80.         Print "@NOPAUSE@@1F@-"
  81.         Delay 0.01
  82.         i4750 = i4750 + 1
  83.         Locate 12, i4750
  84.         Print "@NOPAUSE@@1A@█";
  85.         Locate 12, 65
  86.         Print "@NOPAUSE@@1F@\"
  87.         i4750 = i4750 + 1
  88.       Loop While i4750 < 59
  89.       Locate 14, 30
  90.       Print "@0C@Writing to File...";
  91.       Delay 3
  92.       t26_4463.b0 = Len(s4687)
  93.       t26_4463.b31 = Len(s4712)
  94.       t26_4463.s1(0) = Mid(s4687, 1, 1)
  95.       i4750 = 1
  96.       Do
  97.   746   t26_4463.s1(i4750) = Mid(s4687, i4750 + 1, 1)
  98.         i4750 = i4750 + 1
  99.       Loop While i4750 < Len(s4687)
  100.       t26_4463.s32(0) = Mid(s4712, 1, 1)
  101.       i4750 = 1
  102.       Do
  103.   878   t26_4463.s32(i4750) = Mid(s4712, i4750 + 1, 1)
  104.         i4750 = i4750 + 1
  105.       Loop While i4750 < Len(s4712)
  106.       t26_4463.w72 = 1
  107.       t26_4463.w74 = NodeInfo.BaudRate
  108.       t26_4463.w76 = MasterInfo.TotalCalls
  109.       t26_4463.w78 = 0
  110.       t26_4463.l80 = l4758
  111.       Put 2, 1, t26_4463 '! 224 bytes
  112.       Reset 
  113.